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PS/8 NEWSLETTER 



Submissions should be sent to: 

J. C. Alderman 

Georgia Tech Research Reactor 
900 Atlantic Drive, N.W. 
Atlanta, Georgia 30318 

RECENT CONTRIBUTIONS : 

MAGTAPE HANDLER FOR PS/8 (7 TRACK, TC-58) 
by J. Alderman 

Georgia Tech Research Reactor 
900 Atlantic Drive, N.W. 
Atlanta, Georgia 30318 

The program for the Handler is g*ven along with 
a flow chart. The Magtape must be formatted and 
two FOCAL formatter programs are also given. 

/MIA HANDLER FOR PS/8 MONITOR 

/DIRECTORY VERSION, IN ONE PAGE! 

/ 

/EACH "BLOCK" ON TAPE CONSISTS OF 3 RECORDS. 



MTA, 




RDF 

TAD CDFCIi 
DCA ERROR 
RIF 

TAD KCDF 
DCA MF1ELB+1 
TAD I MTA 
DCA MTFUNC 
ISZ MTA 
TAD I MTA 
DCA MTADDR 
ISZ MTA 
TAD 1 MTA 
DCA BLOCK 
ISZ MTA 

itMtf umri t> 



INGLE ENTRY ONLY! 



•AT IS THE FIELD WE'RE IN? 



MCAF 



/POWER CLEAR TAPE COSt?£SL. 



1. A SINGLE WORD RECORD CONTAINING THE 
BLOCK NUMBER. 

2. 236 or 128 WORDS OF DATA. 

3. AN END-OF-FILE RECORD (EOF-17) 



/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/THESE IS A TAPE FORMATTER PROGRAM (WRITTEN IN 

/FOCAL !!) TO 

/FORMAT A TAPE WITH THE REQUIRED BLOCK STRUCTURE. 

/ 

/NOTE: BECAUSE OF THE WAY THE FORMATTED TAPE IS 

/GENERATED, 

/EACH ,! 8L0CK" (GROUP OF 3 RECORDS itS DESCRIBED 

/ABOVE) 

/IS ONLY 3.75 INCHES LONG. THUS A 200' REEL OF 

/TAPE 

/WILL CONTAIN 640 BI.OCKS. 

/ 

/ 

/ASSEMBLY PARAMETERS 

/ 

EOF= 0100 

0060 

0070 

0010 

0040 

3766 

0020 



FORWARD 
REVERS' 
REWIND' 
WRITE- 
TEST- 
READ* 
/ 
/MAGTAPE IOT'S 



MTSF-6701 

MTCM-6714 

MTCR*67ll 

MTTR-6721 

MTAF»6712 

MTRC-6724 

MTLC-6716 

MTRS-6706 

MTGC-6722 

MCAF»6732 

*7200 

/ 

/ENTRY 

/ 





TAD MTFUNC 






AND P3700 


/SAVE PAGECOUNT. 




CLL RTL 






RTL 






RTL 


/BLOCKS IN ACC, EVEN/ODD IN 
/LINK. 




SZL 


/SKIP IF EVEN # PAGES 




IAC 






CIA 






DCA BLCNTR 


/A WELL-ROUNDED COUNT! 




SZL 


/SKIP IF EVEN # PAGES. 




TAD BLCNTR 






DCA HALFBLOCK /WATCH THIS, IT IS SUPER- 






/TRICKY! 




JMP NEXTBL 




SEARCH, 


SMA 


/FIND THE BLOCK. 




JMP NEXTBLOCK-1 




TAD (-1 






DCA BCNTR 






STA CLL RTL 


/-3 




TAD BLOCK 






SNL CLA 


/SKIP IF BLOCK< 3 




JMP SPACE 






DCA BCNTR 






TAD (REWIND 


-BEAD 




JM? NEXTBLOCK 


SPACE, 


TAD (REVERSE-READ 




JMS MOVE 




?2O0, 


200 




PREAD, 


READ 




MTWC, 


7752 
EOF 






ISZ BCNTR 


/SKIP IF FINISHED SPACING 




JMP SPACE 






CLA CLL 




NEXTBL, 


JMS MOVE 
1 
7753 




MTCA, 




BCNTR, 



TEST 


/COUNTS BLOCK-SPACING, ALSO 




JMP NEXTBLC* 


CK /BLOCK RECORD INCORRECT. 


MTLOOP, 


, CDF 
TAD I MTCA 
JMS MFIELD 
CIA CLL 
TAD BLOCK 






SZA 


/SKIP IF BLOCK FOUND. 




JMP SEARCH 






ISZ HALFBLOCK /SKIP IF LASTBLOCK AND # 






/PAGES IS OD 




TAD P20O 


/FULL BLOCK. 




TAD P200 






DCA MTADDR- 


1 
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MTCOMM, 
MTADDR, 
MTFUNC, 



/MOVE. 
/ 



MOVE, 



KCDF, 



/GET FUNCTIONWORD AGAIN. 
/SKIP IF BEAD IS FUNCTION 



/ADDRESS OF DATA. 
/FUNCnONWORD. 

/TRANSFER BOMBED. 

/UPDATE LATA ADDRESS. 



TAD MTFUNC 
SPA CLA 
TAD PREAD 
JMS MOVE 

400 





TEST 
JMP ERROR 
TAD MTADDR 
TAD MTADDR- 1 
FCA MTADDR 

ISZ BLOCK /STEP TO NEXT BLOCK IN FILE. 
ISZ BLCNTR /SKIP WHEN TRANSFER COMPLETE. 
JMP NEXTBLOCK 
ISZ MTA /INDICATE NO ERROR. 

nrar rm 

JMP I MTA 

CALLED BY: 

JMS MOVE /ACC CONTAINS FUNCTION IN BITS 
/6-8. 

WORDCOUNT /NEGATED INTERNALLY. 

CURRENT ADDRESS /-l SUBTRACTED INTERNALLY 

FIELD 

STATUS BIT PATTERN 
RETURN IF MASKED STATUS #0. 
RETURN IF MASKED STATUS «0. 




TAD UPD 




MTLC 




MTRS 




TAD M400 




SNA CLA 


/SKIP IF TRANSPORT NOT 




/SETTLING. 


JMP .-3 




TAD I MOVE 


/WORDCOUNT 


CIA 




CDF 




DCA I MTWC 




JMS MFIELD 




STA CLL 




TAD I MOVE 


/ADDRESS 


C££ 




DCA X HTCA 




JMS MPISO 




TAD I MOVE 


/FIELD 


ISZ MOVE 




MTGO 




MTTR 




JMP .-1 




MTRS 




AND I MOVE 


/MASK 


ISZ MOVE 




SNA CLA 


/SKIP IF STATUS :mASK#0 


ISZ MOVE 




JMP I MOVE 





MFIELD, 

CDF 

ISZ MOVE 

JMP I MFIELD 

P3700, 3700 

BLOCK, 

CDFCIF, CDF GIF 

UPD, 421 

M400, -400 
HALFBL, 

BLCNTR, 



/SAVE 1 LOCATION IN MOVE \ 


14,01 C 




14.10 I 


/CONSTANT. 




/CONTAINS nESIRED BLOCK, 


14.20 I 


/CONSTANT. 


14.30 D 


/UNIT 0, ODD PARITY, 556 




/BPIREAD COMMAND. 


15,01 C 


/CONSTANT. 


15.10 I 


/DECIDES ABOUT FINAL BLOCK 


15.20 D 


/LENGTH. 


* 


/COUNTS BLOCKS. 





MAGTAPE FORMATTER FOR FOCAL UIOF 

C-UIOF 7AUG 69 

01.01 C GETS PARAMETERS FOR TAPE 
01 *'j T I "LENGTH OF JAPE IN FEET 
C1.20 A LE;S LE«(LE*l2/3.75)-I;I (LE-A095)1.3;S 

LE-4095 
01.30 D ll;S l«0;D 15;D 14;D 15;S I-l;D 14 
01.40 S Z«FDXS(4096,4095)+FDXS(4O97,7)+FDXS (4098,0) 

+FDXS (4099,0) 
01.50 S Z-FDXS (4100, 0)+FDXS (4101,0) 
01.60 S Z-FDXS(4102,4103-LE)+FDXS(4074,3840)+ 

FDXS (4075,4095) 
01.70 D 14.2;D 13;D 15;F I-2,LE;D 14;D 15 
01.80 D 11;T Z4,LE," BLOCKS WRITTEN", !;Q 

11.01 C REWINDS THE TAPE. 

11.10 S Z-FADC(3546)+FADC(3534,265)*FADC(3538) 

11.20 D 13 

13.01 IF (-FADC(3521))13.01,13.01;RR 

14.01 C WRITES A ONE-WORD BLOCK NUMBER RECOUP. 
14.10 S Z»FDXS(4096,I)+FDXS(4O74,4095)+FDXS 

(4075,4095) 
14.20 S Z-FADC(3534,289)+FADC(3538,8> 
14. 3C D 13 

15.01 C WRITES AN END-OF-FILE. 
15.10 S Z-FADC(3534,297)+FADC0538) 
15.20 D 13 
* 

MAGTAPE FORMATTER FOR FOCAL S 

C-FOCAL S 1/71 

01.01 C GETS PARAMETERS FOR TAPE 

01.10 S BASE»4096+2G48;L L.2048 

01.18 T !"LENGTH OF TAPE IK FEET 

01.20 A LE;S LE~(LE*2)-1;I (LE-4095)1,3;S LE-4095 

01.30 D 11;S I*0;D 15;D 14;D 15;S I«1;D 14 

01.40 S Z=FX(l,BASE,-l)+FX(l,BA+l,7)+FX(l,BA+2,0)+ 

FX(l,BA+3,0) 
01.50 S Z«FX(l,BA+4,~l)+FX(l,BA+5,0)+FX(l,BA+6, 

7-LE) 
01.60 S Z=FX(l,4074,3840)+FX(l,4O75,BA-4G96-l) 
01.70 D 14.2 ;D 13 ;D 15 ;F I-2,LE;D 14;D 15 
01.80 D 11;T ^4,LE," BLOCKS WRITTEN" , I ;Q 

11.01 C REWINDS THE TAPE. 

11.05 I (O*FX(2,3526)+FX(3,FX(2,3526),FX(lO,l0G0)) 

),n.i;R 

11.10 S Z«FX(2, 3534, 265)+FX(2, 3538) 
11.20 D 13 

: 10 I (FX(3,FX(2, 3526), 1)+FX(3,FX(2, 3526), 1) 
-2)13. i;R 

WkJir:- A ONE -WORD SLOCK NUMBER RECORD. 

(FX(l f i»A. : )+FX(l,4074,-l)+FX(l,4075,BA 

-4096-1)) 

(FX(2, 3534,289) :?>%(.?< 3538,8)) 

13 

WRITES AN END-OF-FILE. 
(FX(2, 3534, 297)+FX(2, 3538)) 
13 



FLOW CHART: MAGTAPE HANDLER FOR PS/8 
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SERIAL HIGH-SPEED DATA-LINK FOR DP 12 OR PTQ8 
by J- Aldenaaa 

Georgia Tech Research Reactor 
900 Atlantic Drive, H.W. 
Atlanta, Georgia 30318 

This Handler can be used in place of the COR 
Handler. The listing is given below. 

/SERIAL HIGH-SPEED DATA LINK 
/EACH END MUST ECHO AS RECEIVING. 

TFNDEF INEEV < INDSV-6400 > 
IFNDEF OUTDEV < 0UTDEV*6410 > 
INSF=INDEV-?-l ;INCC-INDEV-i-2 ;INRS-INDEV-f-4 ; 

INRB=IHDEV+6 
0UTSF=*0UTDEV+1 jOUTCF-OUTBESr-t-Z; 

OUTLSMJUT0EV+6 
FIELD 

/REPLACING CDE: HANDLER. 



PTPCDF, /SET DATA FIELD TO ACCESS 

/BUFFER 

PTPEOF-PTPCDF 
PT7600, 7600 
PTPISZ. ISZ PTPHC 

JMP I PSETUP /LOOP FOR BUFFER SIZE 
/(128 WORDS) 
PTPRTN, TAD PTPEQF 

SZA CLA /DID WE RUN OUT OF TAPE? 

ISZ FTP 

ISZ FTP 

HLT /EXIT CDF GOES HERE 

JMP I FTP 



PTPXIT, 
PTPPCH, 



PTP, 



*560O 



CLA CLL 

TAD I PTP 

SMA CLA 



PTFLP, 



/FUNCTION 

/SKIP IF SENDING. 
TAD (JMP PTRLP 

DCA PTPCNT /EITHER A JMP, OR 0. 
JMS PSETUP /DO COMMON CRAP 
KSF 

JMP PTPCNT /KEYBOARD FLAG OFF 
KRS 

AND (177 
TAD PTPM3 
SZA CLA /IS THERE A *C IN THE TTX BUFFER? 





JMP PTPCNT 


/NO 


PTPCIF, 


CDF CIF 
JMP I PT7600 




PTPCNT, 


JMP PTRLP 
TAD I PTPCA 


/O IF SENDING. 




JMS PTPPCH 


/FIRST CHAR IS LOW ORDER 8 
/BITS OF WORD 




DCA PTR 






ISZ PTPCA 




PT7700, 


7700 

TAD I PTPCA 


/SMA CLA, BUT JUST CLEARS M 




JMS PTPPCH 


/SECOND CHAR IN LOW ORDER 8 
/BITS OF WORD 




CLL. RTR 






RTR 






TAD PTR 






RT& 






RTR /THIRD CHARACTER HOW IN AC 




JMS JTPPCH 




PTPEND, 


JSZ PTPCA 




PT70, 


?Q /JUST IN CASE WERE PUNCHING 



PTPCA, 

PTR, 

PTRLP, 



/?G 7600 KEEP THIS 
JMP PTPISZ 
PSETUP, 

RDF /GET FIELD OF CALLING PROGRAM 

TAD PTPCIF 

OCA PTPXIT /SET UP RETURN SEQUENCE 

TAD 1 PTP 

AND PT70 

TAD PCDF 

DCA PTPCDF 

TAD I PTP 

ISZ PTP 

AND PT7700 

CMA 

DCA PTPWC 

TAD I PTP 

ISZ PTP 

DCA PTPCA 



PT7400, 
PTRGCH, 





OUTLS 

DCA PTMP 

INCC 

TAD PTM? 

AND (377 

CIA 

DCA PTMP1 

INSF 

JMP .-1 

INRB 

TAD PTMP1 

SZA CLA 

JMP PTPERR 

TAD PTMP 

AND PT7400 

JMP I PTPPCH 





JMS PTRGCH 

DCA I PTPCA 

JMS PTRGCH 

DCA PTPPCH 

JMS PTBGCH 

RTL 

RTL 

DCA PTR 

TAD PTR 

AND PT740O 

TAD I PTPCA 

DCA I PTPCA 

TAD PTR 

RTL 

RTL 

AND PT740O 

TAD PTPPCH 

ISS PTPCA 

7400 

DCA I PTPCA 

JMP PTPEND 



INSF 

JMP PTRTST 

INRB 

OUTLS 



/CLEAR OLD ECHO CHARACTER. 



/SKIP IF SAME CHARACTER 
/ECHOED. 



/READ FIRST CHARACTER OF 3 



/HIGH ORDER 4 BITS INTO WORD 1 
/GET THE CHAR FROM THE PTR 
/BUFFER 



/LOW ORDER 4 BITS INTO WORD 2 



/CHECK EOF. 



/PRODUCE ECHO. 



/GET FUNCTION WORD 

/SET UP -(WORD COUNT)/ 2-1 
/SET UP STARTING ADDRESS 



JMP I PTRGCH /RETURN WITH CHARACTER 
PTRIST, KRS 

TAD (-232 /- T Z 

SZA CLA /SKIP IF EOF. 

JMP PTRGCH+1 /LOOK AGAI?\ 

KRS /PICKUP tz. 

JMP I PTRGCH 
PTPERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O 

/ERROR" ON TE 

JMP PTPXIT- 1 
PCDF, CDF 
PTPWC, 
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PTPM3, 


-3 




PIMP, 







PTMPl, 



*7576 






0220 


/HEAD & WRITE, NGN-DIRECTORY 
/DEVICE* 




FIELD 


1 




*1004 


/SPECIFIC TO PS-8 6-NOV-70 

/release: 




3*200+PTP~5t<00 /REPLACES CDR IN BLOCK 21 




*602 






7224 


/LINK INSTEAD OF CDR 


LOW SPEED PTR: 


AND PTPt USING THE TELETYPE 



by J. Alderman 

Georgia Tech Research Reactor 
900 Atlantic Drive, N.W. 
Atlanta, Georgia 30318 

This Handler replaces the PTR/PIP Handler in 
CONFIG for those people without the high-speed 
reader /punch . 

/PTRr * FTP i USING IZLETYFE 

/FOR PEOPLE WHO HAVE NO SIGH SPEED PAPER TAPE. 

FIELD 

*6400 
FTP, 

CLA CLL CML /SET LINK ON TO INDICATE 
/PUNCH 

JMS PSETUP /DO COMMON CRAP 
PTFLP, KSF 

JMP PTPCNT /KEYBOARD FLAG OFF 

KRS 

am PTP177 

TAD PTPM3 

SZA CLA /IS THERE A* C IN THE TTY BUFFER? 

JMP PTPCNT /HO 
2TPCIF, CDF CIF 

JMP I PT7600 
PTPCNT, TAD I PTPCA 

JMS PTPPCH /FIRST CHAR IN LOW ORDER 8 
/ilTS OF WORD 

FCA PTR 

ISZ PTPCA 
PT7700, 7700 

TAD I PTPCA 

JMS PTPPCH /SECOND CHAR IN uOW ORDER 8 
/BITS OF WORD 

CLL RTR 

RTR 

TAD PTR 

RTR 

RTR /THIRD CHARACTER NOW IN AC 

JMS PTPPCH 
PTPEND, ISZ PTPCA 

PT70, 70 /JUST IN CASE WERE PUNCHING PG 
/7600 KEEP THIS 

JMP PTPISZ 
PSETUP, 

RDF /GET FIELD OF CALLING PROGRAM 

TAD PTPCIF 

DCA PTPXIT /SET UP RETURN SEQUENCE 

TAD I PTP 

AND PT70 

TAD PCBF 

DCA PTPCDF 

RAR /GET LINK(1-PTP,0«PTR) 

TAD I PTP /GET FUNCTION WORD 



ISZ PTP 

SPA /CHECK CORRECT MODE 

JMP PTPERR /SIGNAL "UNRECOVEEABLE DEVICE 

/ERROR" 
AND PT7700 

CMA /SET UP -tWORD COUNT) /2-i 
DCA PTPKC 

TAD I PTP /SET UP STARTING ADDRESS 
ISZ PTP 
DCA PTPCA 
TAD I PTP 
PTPCDF, /SET DATA FIELD TO ACCESS 

/BUFFER 
PTPEOF'PTPCDF 
SNA CLA 
SZL 

JMP PTPISZ 
TAD PTP336 /INPUT INITIALIZATION - TYTE 

TLS 

KSF 

JMP .-1 
PT7600, 7600 
PTPISZ, ISZ PTPWC 

JMP I PSFT3P /LOOP FOR BUFFER SIZE (128 
/WORDS) 
PTPRTN, TAD FfFEOF 

SZA CLA /DID WE RUN OUT OF TAPE? 

ISZ FTP 

ISZ PTP 
PTPXIT, BLT /EXIT CDF GOES HERE 

JMP I PTP 
PTPPCH, 

TLS 

TSF /NOTICE THE GLORIOUS LACK OF 
/OVERLAP 

JMP .-1 

AND PT740O 

JMP I PTPPCH 



/CORRECT ENTRY IN MAIN 

/ASSEMBLY 

CLA CLL 

TaD PTR 

DCA PTP 

JKS PSETUP /SET UP ADDRESS, COUNT, FIELDS 

JMS PTRGCH /READ FIRST CHARACTER OF 3 

DCA I PTPCA 

JMS PTRGCH 

DCA PTPPCH 

JMS PTRGCH 

RTL 

RTL 

DCA PTR 

TAD PTR 

AND PT7400 

TAD I PTPCA 

DCA I PTPCA /HIGH ORDER 4 BITS INTO WORD 1 

TAD PTR /GET THE CHAR FROM THE PTR 
/BUFFER 

RTL 

RTL 

AND PT7400 

TAD PTPPCH 

ISZ FTPCA 
P17400, 7400 

DCA I PTPCA /LOW ORDER 4 BITS INTO WORD 2 
MP PTPEND 
PTRGCH, 

TAD PTPEOF 

SNA CLA 

JMP I PTRGCH 

CLA CLL CMA RTL /-3 



PTPCA, 
PTR, 



PTRLP, 
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PTTIME, 



DCA PTPEOF 
DCA PTR 
ISZ PTR 

JMP PTP232 
ISZ PTPEOF 



Use of JATC12-F with PS/8 LTA: 



/TIMEOUT LOOP FOR LOW SPEED 
/READER 



PTP232, 
PTP177, 



PTPERR, 



PCHP, 
PTP336, 
PXPHC, 
PTPK3, 



/TIKES OUT IN 132 MS(PDP 8/E) 

/OR 205 MS 
JMP PTP232 
TAD PTP232 
JMP I PTBGCS /OVERFLOWED - PTPEOF IS NOW 0, 

/RETURN 
232 /HASTE SOME TIME 

177 
KSF 
JMP PTTIME /READER NOT READY - CONTINUE 

/TIMEOUT 
KRB 

JMP I PTRGCH /RETURN KITH -CHARACTER 
CLA CLL CML RAR /SIGNAL A "PESMANENT I/O 

/ERROR" ON TE 
JMP PTPXIT-2 
CDF 
336 

-3 



FIELD 1 

*I0O3 /SPECIFIC TO PS-8 5-SOV-7Q 

/RELEASE! 
1*200*PTB.-6400 
$ 

PPP-12 EECIAPE CONVERT PROGRAM 
by J. Alderman 

Georgia Tech Research Reactor 
900 Atlantic Drive, N.W. 
Atlanta, Georgia 30318 

For POP- 12 users a listing of the changes needed to 
convert DECtape hy changing PRTC12-F to sake it 
JATC12-F,. <P8£C12-F doesn't do this for PS/8 or 
lit LINCtapes) is given below. 



LO JATC12-F, 


2000 


BLOCKS 


B 


PS/8 LTA 





FROM UNIT 





1st BLOCK »0 


A 


PDP-8 DTA 


1 


UNIT I 





1st BLOCK *0 





NO CHECK 


702 


BLOCKS 


B 









2000 




A 


> SAME 


1 




2000 









2000 


BLOCKS 


A 


PDP-3 PS/8 DTA 


1 


UNIT 1 





1st BLOCK *0 


B 


PS/8 LTA 





UNIT 





1st BLOCK «C 


1 


CHECK PAPITT 


702 




A 


X 


1 


j 


2000 


1 


B 


> SAME 





| 


2000 


1 


1 


/ 



0365 


7770 


M7, 


-7 




0366 


0400 


K400, 


400 




0367 


2653 


MO0CP4, 


ADD P8FMT2 


/PDF- 12 to PDP-8 


0370 


4630 




STC WRILNG 


/READ 201 WORDS 


0371 


2624 




ADD SDENUM 


/WRITE 201 WORD 


0372 


4632 




STC WRINUM 




0373 


2652 




ADD P8FMTI 


/201 WORDS/BLOCK 


0374 


1040 




STA 




0375 


27*7 




ADDINC:2000 




0376 


1020 




LDA I 




0377 


7761 




-16 




04C0 


1040 




STA 




0401 


2066 




RDLTANJ2000 




0402 


1040 




STA 




0403 


2037 




WDLTAN 12000 




0404 


0011 




CLR 




0405 


0017 




COM 




0406 


1040 




STA 




0407 


2070 


APE 


RDEKEY 12000 


/7777-READ FROM 
/LINCT 


0410 


1020 




LDA I 




0411 


7575 




-202 




0412 


1040 




STA 




0413 


2041 




wsikey:2ooo 




0414 


6616 


/ 
/ 


JMP GO 





With this issue we ore circulating the first printing of the 
PS/8 Newsletter. In the future these newsletters will be 
sent to a special mailing list of PS/8 users only. This 
PS/8 list is now in the process of being compiled. Anyone 
interested in being added to this list should contact the 
DECUS office. 



/2/5/71 FOR 201 BLOCK LINCTAFZ 
/M0D0P4 CHANGED. 
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